﻿#region Copyright (c) 2003 - 2008, Andreas Mueller
/////////////////////////////////////////////////////////////////////////////////////////
// 
// Copyright (c) 2003 - 2008, Andreas Mueller.
// All rights reserved. This program and the accompanying materials
// are made available under the terms of the Eclipse Public License v1.0
// which accompanies this distribution, and is available at
// http://www.eclipse.org/legal/epl-v10.html
//
// Contributors:
//    Andreas Mueller - initial API and implementation
//
// 
// This software is derived from software bearing the following
// restrictions:
// 
// Copyright (c) 1994
// Hewlett-Packard Company
// 
// Permission to use, copy, modify, distribute and sell this software
// and its documentation for any purpose is hereby granted without fee,
// provided that the above copyright notice appear in all copies and
// that both that copyright notice and this permission notice appear
// in supporting documentation.  Hewlett-Packard Company makes no
// representations about the suitability of this software for any
// purpose.  It is provided "as is" without express or implied warranty.
// 
// 
// Copyright (c) 1996,1997
// Silicon Graphics Computer Systems, Inc.
// 
// Permission to use, copy, modify, distribute and sell this software
// and its documentation for any purpose is hereby granted without fee,
// provided that the above copyright notice appear in all copies and
// that both that copyright notice and this permission notice appear
// in supporting documentation.  Silicon Graphics makes no
// representations about the suitability of this software for any
// purpose.  It is provided "as is" without express or implied warranty.
// 
// 
// (C) Copyright Nicolai M. Josuttis 1999.
// Permission to copy, use, modify, sell and distribute this software
// is granted provided this copyright notice appears in all copies.
// This software is provided "as is" without express or implied
// warranty, and with no claim as to its suitability for any purpose.
// 
/////////////////////////////////////////////////////////////////////////////////////////
#endregion


using NUnit.Framework;
using NStl.SyntaxHelper;

namespace NStl.NUnit.SyntaxHelperFixture
{
    [TestFixture]
    public class ComposeFixture
    {
        private static readonly IUnaryFunction<int, float> int2Float =
            Functional.PtrFun<int, float>(delegate(int i) { return (float)i; });
        private static readonly IBinaryFunction<float, int, float> multFloatInt =
            Functional.PtrFun<float, int, float>(delegate(float f, int i) { return f * i; });
        private static readonly IBinaryFunction<int, float, float> multIntFloat =
            Functional.PtrFun<int, float, float>(delegate(int i, float f) { return f * i; });
        private static readonly IBinaryFunction<int, int, int> multiplyInt =
            Functional.PtrFun<int, int, int>(delegate(int i, int f) { return f * i; });
        [Test]
        public void FG()
        {
            INullaryFunction<int> generate10 =
                Functional.PtrFun<int>(delegate { return 10; });
            float single1 = Compose.FG(int2Float, generate10).Execute();
            Assert.AreEqual(single1, 10f);
        }
        [Test]
        public void FGxHx()
        {
            IUnaryFunction<int, int> ident = Project.Identity<int>();

            float single1 = Compose.FGxHx(multFloatInt, int2Float, ident).Execute(5);
            Assert.AreEqual(single1, 25f);
        }
        [Test]
        public void FGxHy()
        {
            IUnaryFunction<float, float> multBy10 =
                Bind.First(multIntFloat, 10);
            IUnaryFunction<int, int> function4 = Bind.Second(multiplyInt, 5);
            float single1 = Compose.FGxHy(multFloatInt, multBy10, function4).Execute(3f, 5);
            Assert.AreEqual(750f, single1);
        }

        [Test]
        public void FGxy()
        {
            IUnaryFunction<float, float> multBy5 =
                Bind.First(multIntFloat, 5);
            float single1 = Compose.FGxy(multBy5, multIntFloat).Execute(5, 6f);
            Assert.AreEqual(single1, 150f);
        }

        [Test]
        public void FGx()
        {
            IUnaryFunction<int, int> multBy5 =
                Bind.Second(multiplyInt, 5);
            float single1 = Compose.FGx(int2Float, multBy5).Execute(5);
            Assert.AreEqual(single1, 25f);
        }
    }
}
